home *** CD-ROM | disk | FTP | other *** search
/ Aminet 31 / Aminet 31 (1999)(Schatztruhe)[!][Jun 1999].iso / Aminet / dev / obero / OberonAModules.lha / ARQ.Mod next >
Text File  |  1999-02-26  |  551b  |  42 lines
  1. (*
  2. ARQ.MOD ©1998-99 Morten Bjergstrøm
  3. EMail: mbjergstroem@hotmail.com
  4. *)
  5.  
  6. <*STANDARD-*>
  7. MODULE ARQ;
  8.  
  9. IMPORT
  10.   e:=Exec,
  11.   i:=Intuition;
  12.  
  13.  
  14. CONST
  15.   MAGIC*=06D6A6C21H;
  16.   ID_INFO*=0;
  17.   ID_DISK*=1;
  18.   ID_DELETE*=2;
  19.   ID_GURU*=3;
  20.   ID_RWERROR*=4;
  21.   ID_WPROTECT*=5;
  22.   ID_PRINTER*=6;
  23.   ID_QUESTION*=7;
  24.   ID_EXCLAM*=8;
  25.  
  26.   ID_IMAGE*=-1;
  27.   ID_ANIM*=-2;
  28.  
  29. TYPE
  30.  
  31.   ExtEasyStruct*=RECORD
  32.     Image*:i.ImagePtr;
  33.     Sound*:e.LSTRPTR;
  34.     AnimID*:e.WORD;
  35.     Flags*:e.UWORD;
  36.     Magic*:e.ULONG;
  37.     Reserved*:ARRAY 3 OF e.ULONG;
  38.     Easy*:i.EasyStruct;
  39.   END;
  40.  
  41. END ARQ.
  42.